From a8c4c70fbc4b7bec0e961281b787bf7641073417 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 4 Jun 2004 23:25:00 +0000 Subject: [PATCH] (help-argument-name): Reintroduce face. (help-default-arg-highlight): Use it, now that `face-differs-from-default-p' can be trusted. --- lisp/help-fns.el | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e7e09a431bd..03ea5bef653 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -237,14 +237,19 @@ KIND should be `var' for a variable or `subr' for a subroutine." (concat "src/" file) file))))) +;;;###autoload +(defface help-argument-name '((((supports :slant italic)) :inherit italic)) + "Face to highlight argument names in *Help* buffers.") + (defun help-default-arg-highlight (arg) "Default function to highlight arguments in *Help* buffers. -It returns ARG in lowercase italics, if the display supports it; -else ARG is returned in uppercase normal." - (let ((attrs '(:slant italic))) - (if (display-supports-face-attributes-p attrs) - (propertize (downcase arg) 'face attrs) - arg))) +It returns ARG in face `help-argument-name'; ARG is also +downcased if it displays differently than the default +face (according to `face-differs-from-default-p')." + (propertize (if (face-differs-from-default-p 'help-argument-name) + (downcase arg) + arg) + 'face 'help-argument-name)) (defun help-do-arg-highlight (doc args) (with-syntax-table (make-syntax-table emacs-lisp-mode-syntax-table) -- 2.30.2